home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
Amigacall v3.51 prof.adf
/
SCRIPT
/
TelefonWaechter
< prev
next >
Wrap
Text File
|
1989-12-16
|
2KB
|
98 lines
# :ts=8 #
list ^l
Ask @10,03;Erklaerung (J/N)?
compa !lastline! !with! j
ifequ goto babble
compa !lastline! !with! J
ifequ goto babble
goto ReallyDoIt
:babble
print #################################################################
print # #
print # TELEFONWAECHTER #
print # (by Joerg Reisenweber) #
print # #
print # Dieses SCRIPT-File ueberwacht Ihr Telefon (z. B. wenn Sie #
print # nicht zuhause sind). #
print # Im Logbuch werden alle Anrufe (Uhrzeit und wie oft es ge- #
print # laeutet hat) protokolliert. #
print # Das Script laeuft (theoretisch) ewig und wird nur durch #
print # Abbruch (Mausklick auf dem Closegadget des Scriptfensters) #
print # beendet. #
print # #
print # (Funktioniert nur mit Hayesmodem) #
print #################################################################
exit
:ReallyDoIt
# Anzahl Anrufe auf 0 setzen
setn calls, 0
# Logbuch loeschen und schliessen
capture 0
clrcapt
# Bildschirm loeschen
list ^L
# Notfalls seeehr lang warten
##
## Hauptschleife
##
:mainloop
# Auf Klingeln warten
timeout 9999
wait RING
# Sehr lange gewartet?
ifbrk goto mainloop
# Klingelzaehler auf 1 setzen,
# Anrufzaehler erhoehen
setn rings, 1
inc calls
#
# Warten bis Klingeln aufhoert
#
timeout 20
:loop
wait RING
# Klingeln zu Ende
ifbrk goto weiter
# Zaehlen und Warten
inc rings
goto loop
#
# Anruf protokollieren
#
:weiter
capture 1
print !calls!. Anruf:
print " Zeit: !time!"
print " !rings! mal geklingelt"
print ^m^m^m
capture 0
# und weiter geht's
goto mainloop